Select Code to Download

if ( -s $infile ) {
    my $parser = Text::CSV::Simple->new;
    my @data = $parser->read_file($infile);
}

if ( -z $infile ) {
    unlink $infile or die "Can't unlink empty file '$infile': $!";
    next FILE;
}

eval {
    my $parser = Text::CSV::Simple->new;
...
   # unexpected error!
   die $@;
}