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