#!/usr/bin/perl -w

use strict;
use Carp ();
local $SIG{__WARN__} = \&Carp::cluck;

correct();
incorrect();

sub correct   { print_value("Perl"); }
sub incorrect { print_value(); }

sub print_value {
  my $var = shift;
  print "My value is $var\n";
}