All pastes #437937 Raw Edit

Untitled

public text v1 · immutable
·published 2007-04-13 11:04 UTC
rendered paste body
for (@file){
        my @a = $_ if /$ARGV[0]/;
        $_ = /(\d+)\s+(.+)/;
        print (int $1/1024)." Mb";
        print $1;
}