Select Code to Download

perl -MImager::GIF -le 'for (keys %INC) { print $INC{$_} if /GIF\.pm/ 
+}'

sub scale {
    my ($self, %args) = @_;
...
        return $ret;
    });
}