Select Code to Download

#!/usr/bin/perl
use warnings;
...

__DATA__
 Input queue: 0/75/0/39 (size/max/drops/flushes); Total output drops: 
+19845805

C:\Code>perl regex-test.pl
My file              Cisco Interface X      : 1