Select Code to Download

#!/usr/bin/perl 
#====================================================
...
    print "\n";
}

 

./script.pl -w
...
    The key is machine1key1,   the value is machine1value1.
    The key is machine1key2,   the value is machine1value2.
    The key is machine1key3,   the value is machine1value3.

 
./script.pl -f
The outer key(user) is user1. 
...
    The key(machine_key) is machine1key4
Can't use string ("machine1value4") as a SCALAR ref while "strict refs
+" in use at ./script.pl line 50.