1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

#!/usr/bin/env perl
use utf8;
use 5.012;

use DDP {deparse => 1};

my $string = 'Perl入学式';
my @foo = ('foo', 'bar');

p $string;
p @foo;

1

cpanm Data::Printer

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

#!/usr/bin/env perl
use utf8;
use 5.012;

use Test::More;

my $num = '42string';

ok($num == 42);
ok($num eq 'string');

done_testing;

1

cpanm Data::Printer Test::More

1
2
3

use Test::More;
ok('ok');
done_testing;

1

ls | peco | xargs cat