perl -MO=Deparse -00ne 'BEGIN { $filename = "MyFileName0000" } { open my $IFILE, ">", $filename++; print $IFILE  $_ }'