Select Code to Download

"o|c|out=s" => \my $csv;

GetOptions ("length=i" => \$length,    # numeric
            "file=s"   => \$data,      # string
            "verbose"  => \$verbose)   # flag

sub GetOptions {
    my %options = @_;
    # ...
}

my $sref = \my $scalar;

my $scalar;
my $sref = \$scalar;

my %hash = (
    some_key => \my $value,
    # ...
);

my $value;
my %hash;
$hash{some_key} = \$value;

($csv) and ($xls = $csv);

$xls = $csv if $csv;

sub foo {
    my $value = rand(5);
    return $value > 2 or die "Value was not greater than 2.\n";
}

sub foo {
    my $value = rand(5);
    return($value > 2) or die;
}

sub foo {
    my $value = rand(5);
    return $value > 2 || die;
}

sub foo {
    my $value = rand(5);
    return ( ($value > 2) || die );
}