print "start paste\n"; my $w = shift; my $cell = shift || ''; ## Perltk not sure if translated correctly