my $file_name = substr $0, 1 + rindex $file, '/';