use File::Basename qw( basename );
$script_fn = basename($0);