Help for this page
my @tmp = split(/\//, '/home/bin/scripts/test.pl'); my $fname = pop @tmp;
my $fname = pop split(/\//, '/home/bin/scripts/test.pl');
*-*-*-*-*-* { firstname => 'Michael', quote => 'Mice were crying and stinging but went on nibbling the + cactus', }
www.com | www.net | www.org
No recent polls found