Select Code to Download

      $exp->send("/usr/bin/last -5 graff\n");

      $exp->send("/bin/cat /etc/passwd\n");

#!/usr/bin/perl -w
use strict;
...
print "/etc/passwd contains:\n$passwd_file\n";

$exp->soft_close();