#!/usr/bin/perl
    # The 'bad' version - produces warnings
    use strict;
    use warnings;

    my $name;
    # perhaps some code to get user's name
    # { ... }

    print 'My name is ' . $name;