#!/usr/bin/perl -wuse strict;while () { if ($_ eq "done\n") { last; } print "You entered: $_";}print "All done!\n";