#!/usr/bin/perl

use strict;
use warnings;

$_ = "Hello";
print '$_: ' . $_ . "\n";
my $test = \$_;
print '$test: ' . $test . "\n";
print '$$test: ' . $$test . "\n";

print '$|: ' . $| . "\n";
$test = \$|;
print '$test: ' . $test . "\n";
print '$$test: ' . $$test . "\n";

$|++;

print '$|: ' . $| . "\n";
print '$test: ' . $test . "\n";
print '$$test: ' . $$test . "\n";