open (LESS, "| less") or die "Can't fork a process for less: $!";

print LESS "$accounts->{$account}{name}\n";
print LESS "\tUser:  ", $accounts->{$account}{user}, "\n";
print LESS "\tPassword:  ", $accounts->{$account}{password}, "\n";
print LESS "\tComment:  ", $accounts->{$account}{comment}, "\n";