#!/usr/bin/perl

use warnings;
use strict;

sub function1 {
    my $var = defined $_[0] ? shift : 'No argument';
    print "$var\n";
}

function1('zero');
function1(0);
function1('0');
function1(0e0);
function1('foolio');
function1();