Select Code to Download

sub validate_tag
{
    my $arr1=$ARGV[1];
...
        if($found < 1){print "Invalid tag $1 found"}
    }
}