Select Code to Download

     #!/usr/bin/perl
        print "Line [ ", __LINE__, " ] looks very nice\n";
        print "Line [  __LINE__ ] is taken as a string-literal\n";
       #print "Line [ @{[__LINE__}] is a syntax error\n";

     Line [ 2 ] looks very nice.
     Line [  __LINE__ ] is taken as a string-literal.