Select Code to Download

my %hash ;
my ($remote_mt,$local_mnt);
...

use Data::Dumper;
print Dumper(\%hash);

__OUTPUT__

$ perl foo

Kicking my dog off my leg:  =>
04/30/08 12:54:31
...
          'prdfs80:/var/opt/ha_prdfs80' => '/var/opt/prdfs80',
          'dev0cl01:/home/admin' => '/home/admin'
        };

__DATA__
# System /etc/fstab file.  Static information about the file systems
...
/dev/vg00/lvol9 /var vxfs delaylog 0 2
prdfs80:/var/opt/ha_prdfs80 /var/opt/prdfs80 nfs defaults 0 0
dev0cl01:/home/admin   /home/admin  nfs defaults 0 2 ~