Select Code to Download

#! /usr/bin/perl -w -T

...
    print;
}
# I tried *{$worse_yet{hash}->{handle}} and it didn't work either