Jeff P. wrote:
use File::Basename; my $path = dirname("/home/brent/cgi-bin/scripts/common/ticktaktoe");my ($var) = $path =~ /.*\/(.+)$/;
Thank You Worked like a bomb. Regards Brent Clark -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/