Help for this page

Select Code to Download


  1. or download this
    sub spin {
    my ($arg) = @_;
    ...
    } 
    print " \n";
    }
    
  2. or download this
    my $dir;
    my $pattern = $version; 
    ...
                 if ($_ =~ /\Q$pattern/) { $dir = $_; last           OUTER
    +; } 
    }
    }
    
  3. or download this
    copy ("$source", "$destination") or die "Failed to copy setup file\n";