Select Code to Download

{asf192lin1 C 0/8 0 0 0 4503 16 2922 44316 1}
...

{dsf192lin6 + 0/16 0 0 0 4751 16 2930 179123 0}

open my $f,"<gen_machines_data.txt" or die $!;
my($slots_used,$slots_free);
...
close $f;
print "total slots used:$slots_used\n";
print "total slots free:$slots_free\n";

open my $f,"<gen_machines_data.txt" or die $!;
...
close $f;
print "total slots used:$slots_used\n";
print "total slots free:$slots_free\n";