#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

for(1..10) {
        my $t = 'undef' if 0;
        print Dumper $t;
        $t = 'def';
}

-- 
With best regards,
  Alexander Q                         mailto:[email protected]

--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить