Select Code to Download

Select or download this

        mkpath($homeDir, 0, 0077);
    chdir $homeDir;
...
            open CMD, "transmission-remote --list |";
            close CMD;
                system "transmission-remote -t 1 -S &";

Select or download this

    if (! -d $homeDir ) {
        print "Making $homeDir.\n";
...

    print "Entering $tmpDir.\n";
    chdir $tmpDir;

Select or download this

    unless ( -d "$homeDir/$tmpDir" ) {
        print "Making $homeDir/$tmpDir.\n";
...

    print "Entering $homeDir/$tmpDir.\n";
    chdir "$homeDir/$tmpDir" or die "Cannot chdir to '$homeDir/$tmpDir
+' because: $!";

Select or download this
```
            eval $code or die $!;
```

Select or download this

    my @torrentFiles;
    open CMD, "ls *torrent |";
...
        push @torrentFiles, $line;
    }
    close CMD;

Select or download this

    my @torrentFiles = glob '*torrent';