Next Tricks of the Wizards 90

Internationalization

        print "Hello there!\n";
        print "Should I erase all your files (yes/no)?  ";
        chomp(my $response = <>);
        if ($response eq 'yes') {
          system("rm -rf $ENV{HOME}");
        }


Next Copyright © 2003 M. J. Dominus