#!/usr/bin/perl -w

use strict;

my $vlnum = 0;

print "Introduzca un numero: ";
chomp ( $vlnum = <STDIN> );

for(1..10){
    print "$vlnum * $_ =", $vlnum * $_;
}