5 #my $tx = Net::Lorcon->new("eth1", "prism54");
7 print " - " . Net::Lorcon::resolvecard("eth1") . " - \n";
9 foreach (Net::Lorcon::getcardlist) {
11 my $tx = Net::Lorcon->new("eth1", "$_");
14 #open (FILE,"starwars.txt");
17 $tx->txpacket("zxcvbnmasdfghjklqwertyuuiop123456780");