my $program = (split /\./, ( split /[\\\/]/, $0)[-1] )[-2];