Statement Perl

#!/usr/local/bin/perl 
NEXTLINE: $line = 
if ($line ne "") { 
   print ($line); 
   goto NEXTLINE; 
}