'/home/bin/scripts/test.pl' =~ m{([^/]+)$}
    or die "Didn't match";
my $fname = $1;