#!/bin/sh
./list_subs $1 | perl -ne 'chomp; next if $_ eq "new"; print "sub $_ { UI:\:$_\() }", $/' 
