All pastes #40914 Raw Edit

Miscellany

public text v1 · immutable
#40914 ·published 2006-02-09 21:30 UTC
rendered paste body
#!/usr/bin/perl
sub basename {
        my @filepath;
        @filepath = split(/\//,shift);
        return $filepath[@filepath-1];
}
print &basename($0);