#!/usr/bin/perluse 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";