#!/usr/bin/perl

use strict;
use warnings;

my $var = undef;
$var ||= 2;
# $var -> 2

$var ||= "test";
# $var -> test

$var = 0;
$var ||= 'hallo';
# $var -> hallo

$var = "";
$var ||= 'perl-community.de';
# $var -> perl-community.de