#!/usr/bin/env perl
use strict;
use warnings;

my $foo = 'foo';
print "\$foo=$foo\n";

my @foo = (1, 2, 3);
print "\@foo=@foo\n";

my %foo = (
    1 => 'one',
    2 => 'two',
    3 => 'three',
);
print "\%foo=" . %foo . "\n";

my $log = *STDIN;
print $log . "\n";