#! /usr/local/bin/perl
#
# 指定された複数のファイルの HEADER 部分を落とし、
# 指定されたディレクトリにブチ込む
#
$OD = '/tmp';
if(! -d $OD) { system("mkdir $OD"); }
foreach $file ( @ARGV ) {
  $ofile = $file; $ofile =~ s/^.*([^\/]*)$/$OD\/\1/;
  if(open(I,$file) && open(O,">$ofile")) {
    while(<I>) {
      last if(/^[ \t\r\n]*$/);
    }
    while(read(I,$za,256)) { print O $za; }
    close(O); close(I);
  }
}
exit;