#!/usr/bin/perl

print "Ingrese una hora en formato hh:mm:ss\n";
chop($hms=<>); # Combina lectura y chop
($h, $m, $s) = split(/:/, $hms);
print "Esto equivale a ", $h*3600+$m*60+$s, " segundos\n";