Programando en Perl no.1

Lo prometido es deuda. He aquí algunos ejercicios de programación en Perl. No tienen una explicación detallada, pero se entienden.

1. Paso de parámetros:
my $parametro=$ARV[0];
print "Introduciste:  ",$parametro,"\n";

2. Obtener salario bruto y neto:

my $extras; 
my $salarioBruto;
my $salarioNeto;

print "Introduce horas:";
$horas= <STDIN>;
if($horas <= 38){
  $extras=0,
}else{
  $extras=$horas-38;
  $horas=38;
}

print "Introduce tasa de interes:";
$tasa= <STDIN>;

$salarioBruto=$horas*$tasa+$extras*$tasa*1.5;

if($salarioBruto<=300){
  $salarioNeto=$salarioBruto;
}else{
  $salarioNeto=$salarioBruto*0.9;
}

print "Datos:\n";
print "horas: ",$horas,"\n";
print "extras: ",$extras,"\n";
print "salario bruto: ",$salarioBruto,"\n";
print "salario neto: ",$salarioNeto,"\n";


3.  Calcular el valor futuro

#definimos una función
sub valorfuturo{
 print "valor futuro obtenido: ",$_[0]*((1+$_[1]/100)**$_[2]),"\n";
}

print "Valor presente: \n";
$valor= <STDIN>;
print "Tasa de interes: \n";
$interes= <STDIN>;
print "Plazo de pago: \n";
$plazo= <STDIN>;

&valorfuturo($valor,$interes,$plazo);

4. Obtener pulsaciones e índice de masa corporal:
#ejecutamos el comando clear (Linux  en Windwos sería cls)

print `clear`;

print "\n";

print "Tu nombre:\n";

$nombre = <STDIN>;

print "Tu edad:";

$edad= <STDIN>;

print "Tu peso:\n";

$peso = <STDIN>;

print "Tu talla:";

$talla= <STDIN>;

print "Hola $nombre\n";

print "tienes $edad de edad\n";

print "tu peso es de $nombre kg\n";

print "tu talla es de $edad mts\n";

$pulsaciones=(220-$edad);

$imc=$peso/($talla*$talla);

print "pulsaciones: ",$pulsaciones,"\n";

print "indice de masa corporal: ",$imc,"\n";

Si usas Windows te conviene usar  Strawberry Perl.