Select Code to Download

open OUT, ">", "./trace.out";
my $line =0;
...
    print OUT "$line: bytes: $bytes, err: $! \n";
}
close(OUT);

...
1880: bytes: 1, err: Inappropriate ioctl for device 
...
1883: bytes: 1, err: Inappropriate ioctl for device 
1884: bytes: 1, err: Inappropriate ioctl for device 
...

...
1891: bytes: 1, err: Inappropriate ioctl for device 
...
1896: bytes: , err: Resource temporarily unavailable 
1897: bytes: , err: Resource temporarily unavailable 
...

write(1, "07651738\n1313:   switchport acce"..., 4096) = 4096
write(1, ": interface Ethernet2/36\n1426:  "..., 4096) = 4096
...
write(1, "e-policy type queuing input N7K-"..., 4096) = -1 EAGAIN (Res
+ource temporarily unavailable)
write(1, "141:   channel-group 1305 mode a"..., 4096) = -1 EAGAIN (Res
+ource temporarily unavailable)
write(1, "storm-control broadcast level 10"..., 4096) = -1 EAGAIN (Res
+ource temporarily unavailable)