my $file_upload="$dir_details->{WORK_DIR}/upload/$params->{upname}.dat";

##</code><code>##

$file_next = (perl -ple "exit if $. > 10" $file_upload);