#!/usr/bin/perl use warnings; $name = "Tom"; print "My name is ", $name, "\n"; print "It's still ", $name, "\n"; $name = "bill"; print "Well, actually, it's ", $name, "\n"; $name = "Tom"; print "No, really, it's ", $name, "\n";