To diagnose try

#!/usr/bin/perl --
open my( $fh ),
    '/home/charrison/bin/IPC.pm'
    or die Fudge();
sub Fudge {
  my @r;
  while( my($k,$v)=each %!){
    $v and push @r, $k
  }
  join qq/\n/,
    int($!).q/ /.$!,
    int($^E).q/ /.$^E,
    @r, q/ /
}
__END__
[download]