my $file_name = ( split m{/}, $0 )[-1];