#!/usr/bin/perl

use Net::Lorcon;

#my $tx = Net::Lorcon->new("eth1", "prism54");

print " - " . Net::Lorcon::resolvecard("eth1") . " - \n";

foreach (Net::Lorcon::getcardlist) {
  print $_."\n";
  my $tx = Net::Lorcon->new("eth1", "$_");
  $tx->open;

  #open (FILE,"starwars.txt");
  #while (<FILE>) {
#  print $_;
    $tx->txpacket("zxcvbnmasdfghjklqwertyuuiop123456780");
  #sleep 1;
  #}
  $tx->close();
}
