Select Code to Download

#!/usr/bin/perl

...
    print "Error: $@" if $@; 
    print join( "\n", @matched, $prompt );
}