1
2
3
4
5

#! /usr/bin/env perl
use strict;
use warnings;
print "Hello,
world!\n";

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

#! /usr/bin/env perl
use strict;
use warnings;
use utf8;
=pod
# binmode STDOUT, ":encoding(utf8)";
binmode STDOUT, ":utf8";
my $greeting = "<一度目の挨拶>\n";
print $greeting;
ここはコメント
=cut
print "#print"; # コメント;
print qq{pr"int\n};
print q{pri"nt\n};
print qq/ds\n/;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

#! /usr/bin/env perl
use utf8;
use 5.12.1;
use Data::Dumper::Concise;
my %hash;
$hash{qw/1 2 3/} = 'hoge';
say $hash{qw/1 2 3/};
say Dumper \%hash;
my $var = scalar (2,4,6,8);
say $var;