#!/opt/RASAgent/perl/perl5


open(O, $ARGV[0]);

while ($l = <O>) {
   $cnt++;
   print $cnt . " " . substr($l,0,60) . "\n";
   print "\t" . substr($l, 60,60) . "\n";
}
close(O);
