#!/usr/bin/perl -w $name = "A"; print "My name is ", $name, "\n"; print "It's still ", $name, "\n"; $name = "B"; print "Well, actually, now it's ", $name, "\n"; $name = "C"; print "No, really, now it's ", $name, "\n";