my $foo="/tmp/ftapes_runfile";
open (RUNFILE, ">$foo") || die "could not open runfile: $!;"
       
close (RUNFILE);