#!/usr/bin/perl

$f = ();

open foo, "</tumtum/don/cyber/foo" || die "shit...";
open bar, ">/ballast/don/no.ps"

while (<foo>) {
  print $_;
};

print @f;
