...
my      $MISC_FILE_DIR  = shift || die usage();
my      $req            = shift || die usage();
my      $inqfile        = shift || die usage();
my      $sent           = shift || die usage();
my      $status         = shift || die "please specify status\n" . usage();
...