#!/usr/bin/perl
#interactive perl.
$SIG{INT}=sub{print("\n","-"x20,"Restart","-"x20,"\n");exec($0);exit;}; #restart on ctrl+c
$p='>>>';print $p;print(eval,"$@\n$p") while <>;