#!/usr/bin/perl

# los valores de las variables en perl se interpretan segun el contexto

$i = "0"; # probar con "0", "1", "a" y con no definirlo

# usar esto para probar si $i es false (==0)
if($i) {
  print "si: i=$i\n";
}
else {
  print "no: i=$i\n";
}

# usar esto para ver si la variable tiene algun valor
if(defined($i)) {
   print "y? i=$i\n";
   $i = $i + 1;
   print "y? i=$i\n";
} else {
   print "n? i=$i\n";
   $i = $i + 1;
   print "n? i=$i\n";
}