#!/usr/bin/perl
# line 1 w.pl
use warnings;
my $a;
print $a;