#!/usr/bin/perl use warnings; print “a: ”; my $a = “foo”; print $a;