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 son claros.

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";