Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "Type: $type\n";
    print "Here in ref_test2\n";
}

Here in ref_test1.
Type: connect
Here in ref_test2