2011-01-04 02:54:52 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
|
2011-01-04 02:56:01 +00:00
|
|
|
my $firstname = "Jonathan";
|
2011-01-04 02:54:52 +00:00
|
|
|
|
|
|
|
|
print "Hello, $firstname\n";
|
2011-01-04 02:56:01 +00:00
|
|
|
|
|
|
|
|
$firstname = "John";
|
|
|
|
|
|
|
|
|
|
print "Goodbye, $firstname\n";
|
