The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!psh

package themes

$TTY=`tty|cut -d/ -f3-255`
chomp $TTY
$win=`which psh`."  ($TTY)"


option ps1='\h:\#\$ ' ps2='> '
option window_title="$win"
option -ps3 -ps4 -prompt_command

undef $TTY
undef $win

package main