All pastes #373670 Raw Edit

Untitled

public text v1 · immutable
#373670 ·published 2007-02-26 22:46 UTC
rendered paste body
#!/usr/bin/perl

$ping = "Pinging 124.21.84.69 with 4 bytes of data\n\n
Error could not ping\n\n\n";
%commands = ('/help' => 'This is the help part', '/ping' => $ping);
print "enter command:\n";
$com = <STDIN>;
print $commands{'$com'};