my apologies on not being clearer. You would be correct in what you are thinking. Lemme kinda give a flow here:

1. hash is created
2. passed to statinfo subroutine
3. passed to encrypt or decrypt subroutine from statinfo
   a. eval is run over gpg encryption/decryption
4. file(s) are moved to where they need to be
5. email is sent (proggie done)
[download]

Here is a few snippets from the program:

my(%temphash) = %workhash;
if (%workhash = &statinfo(%temphash) != 0)
{
 print "ERR -> statinfo sub\n";
 exit;
}

sub statinfo
{
 # bunch of stuff here - actually gathering of information
 # from stat function
 my(%temphash) = %workhash;
 if ( $workhash{abbr} =~ /lmr/lamer/ )
 {
  %workhash = &ezip(%temphash);
 }
 elsif ( ($workhash{encrypt} eq "pgp") && ($workhash{tranmeth} eq "put
+") )
 {
  %workhash = &encrypt(%temphash);
 }
 elsif ( ($workhash{encrypt} eq "pgp") && ($workhash{tranmeth} eq "get
+") )
 {
  %workhash = &decrypt(%temphash);
 }
 else
 {
  print "ERR! - dont know what to do!\n";
  exit(1);
 }
}
[download]

Now, inside any of THOSE subs (ones directly above), an eval{} runs on the process to make sure it went alright.. im starting to think im a complete idiot here and not sure where to go from this point... did this help any? I hope someone can give this partial newbie a hand.. thanks