#!/usr/pkg/bin/perl
if (length(@_)) {
 quoteprint(<>);
} else {
 quoteprint(<STDIN>);
}
sub quoteprint() {
 foreach (@_) {
  chop;
  printf("\"%s\"\n", $_);
 }
}