$utente = qx(\$USER);
print "punto a:\n \t$utente";

@proc = qx(top aux > grep );
shift @proc;
print "punto b:\n";
for (@proc){
    @current = split(" ",$_);
    print "\t" . $current[0] . "\s";
}
print "punto c:\n";
$home = qx(echo \$HOME);
chomp $proc;
print "\t" . qx(du -h | tail);