#!/usr/bin/perl while () { print "// "; print; } print "\n";