Select Code to Download

my $ERRORCOUNT=0;
my %HASH;
...
#...
return ($vlan, $mac, $int, $error);
}

#!/usr/bin/perl 
#
...
}

### END SUB-ROUTINE 2 ###