Select Code to Download

use strict;
use warnings;

perl -c Whatever.pm

my $self = { $x => shift, $y => shift, $w => shift, $h => shift };

{ "" => $_[4] }

$ perl -e 'use Data::Dump; sub Box { my $self = { $x => shift, $y => s
+hift }; dd $self } Box(qw{a b c})'
{ "" => "b" }