Help for this page

Select Code to Download


  1. or download this
    sub AUTOLOAD {
        our $AUTOLOAD;
    ...
        };
        goto &$newsub;
    }
    
  2. or download this
    #!/usr/bin/perl -T
    use strict;
    ...
            die "";
    }
    
  3. or download this
    
    #!/usr/bin/perl
    ...
    
  4. or download this
    ######################################################################
    +######
    # smallWindowWhenRecomposed.pl
    ...
        }
    }
    
  5. or download this
    #!perl -w
    
    ...
    
        print $cgi->end_html;
    }
    
  6. or download this
    my $scalar = ("one","two","three");
    
  7. or download this
    use strict;
    # context test
    ...
    {
        return @array;
    }
    
  8. or download this
    use strict;
    use warnings;
    ...
    sub badger
    {
        print "badger\n";
    
  9. or download this
    select u.usernae, u.realname from userdata where username in (select u
    +sername from appointmentslot where appointment is null)
     and u.mobdetailsid = m.id and m.deploymentmethod like 'IT assisted'
    
  10. or download this
    #first line of code
    #second line of code
    #third line of code
    
  11. or download this
    use strict;
    use warnings;
    ...