Rev 11930 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
#!/usr/local/bin/perl
#!/usr/bin/perl
open(IN, "commands") ;
my $L='' ; my $t=0 ;
while (<IN>) {my $l=$_ ;