- my $name = (split '([^/]+$)', $ENV{'SCRIPT_NAME'} || $0)[1];
+ my $name = (split '/', $ENV{'SCRIPT_NAME'} || $0)[-1];