poletti@flaviox ~/sviluppo/perl> perl file2.pl
$var is 10
$var now is 1