view _test/temp.pl @ 132:42fbb38d4a48

minor changes
author wizard
date Thu, 17 Jun 2010 17:35:36 +0400
parents a4b0a819bbda
children 44977efed303
line wrap: on
line source

#!/usr/bin/perl
use strict;

my $var ;
$var->{dool} = '';
print $var;