#!/usr/bin/perl

use strict;   # look  this up.
use warnings; # look this up.

my $name = "bug"; # notice the use of 'my';