# UNTESTED!
$Psh::prompt = sub {
    my $progress = get_progress();
    "($progress%) psh\$ ";
}