Select Code to Download

my $MISC_FILE_DIR = @ARGV ? shift : die usage();
# ...
# ...

die usage() if @ARGV < 5;
my ($MISC_FILE_DIR, $req, $inqfile, $sent, $status) = @ARGV;

while( my @row = $sth->fetchrow_array ) {
        print join( '|', map ( defined() ? $_ : 'NULL', @row )) ."\n";
}