print FILEOUT "eject 0,0,0 ";
my $count = `wc -l <$ejectapes`;

if ($count <= 40 ) {

        while(<FILE>) {
                chomp $_;
                print FILEOUT "$_ ";   # if 1..8
                #print substr($a,0,7);
        }
close (FILEOUT);

}