21 lines
319 B
Perl
21 lines
319 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $greeting = 'Hello';
|
||
|
|
my $planet = 'world';
|
||
|
|
write();
|
||
|
|
|
||
|
|
$greeting = 'Greetings';
|
||
|
|
$planet = 'Mars';
|
||
|
|
write();
|
||
|
|
|
||
|
|
$greeting = 'Howdy';
|
||
|
|
$planet = 'Pluto';
|
||
|
|
write();
|
||
|
|
|
||
|
|
format STDOUT =
|
||
|
|
I would like to say @<<<<<<<<< @<<<<<<<!
|
||
|
|
$greeting, $planet
|