#!/usr/bin/perl

use Empleado1;

$e1=new Empleado1("Juan Pérez", "3.141.159-2", 350000);
$e1->impr;
$e1->aumenta_sueldo(50000);
print "\n";
$e1->impr;