package Progname;
use Carp;

sub TIESCALAR {	
    my $class = shift;
    my $newname = shift;
    return bless \$newname, $class;
}

sub FETCH {
    my $self = shift;
    carp "The program name is being accessed.\n";
    return $$self;
}

sub STORE {
    my $self = shift;
    my $attempted = shift;
    carp "An attempt is being made to change the program name to \"$attempted\".\n";
    
}

1;