All pastes #762484 Raw Edit

4red

public text v1 · immutable
·published 2007-11-05 18:44 UTC
rendered paste body
#!/usr/bin/perl -w

my @tab;

if (! @ARGV) {
	@tab = <STDIN>;
    }
else 
    {
    open(DATA, $ARGV[0]);
    @tab = <DATA>;
    close(DATA);
    }
}