Select Code to Download

#! perl
use strict;
...
    warn "destroyed";
    $x;
}

destroyed at /tmp/sample.pl line 18.
end at /tmp/sample.pl line 14.