#!/usr/bin/perl
until(0) {
     print "Cliente, cantidad\n";
     chop($_ = <>); 
     last if !$_;
     ($paganini, $cantidad) = split(/,/,$_);
     $comision = $cantidad * 0.25;
     ($seg, $min, $hora, $dia, $mes, $anho, @zape) = localtime(time);
     $mes++;
     $zipi = pack("A16",$paganini).pack("A7",$comision)."$hora:$min $dia/$mes\n";
     push( @mem, $zipi );     
};

print @mem;