#! /usr/bin/perl
##
## 指定されたファイルの HEADER 部分を落とす
##
foreach $F ( @ARGV ) {
  if(open(F)) {
    while(<F>) {
      last if (/^[ \t\r\n]*$/);
    }
    while(read(F,$za,256)) { print $za; }
    close(F);
    last;
  }
}
exit;