open FILE,'>>','./irgendeine_datei' or die $!;
my $position = tell(FILE);

if ($position > 5242880) {
   # dann fange eine neue Datei an ...
}

close FILE;