pastebin - collaborative debugging tool
kpaste.net RSS


negative function
Posted by Anonymous on Mon 17th Sep 2012 21:34
raw | new post

  1. #!/usr/bin/perl
  2.  
  3. use 5.14.0;
  4. use strict;
  5. use warnings;
  6.  
  7. my $number = 10;
  8. my $true = 1;
  9.  
  10. while ($true) {
  11.         sleep 1;
  12.         say --$number;
  13. }

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with {%HIGHLIGHT}




All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at