#!/usr/bin/perl

use strict;
use warnings;

# Stop sharing
if( $ENV{ "TR_TORRENT_ID" } )
{
        print "/usr/bin/transmission-remote -t ".$ENV{ "TR_TORRENT_ID" }." -r\n";
        system("/usr/bin/transmission-remote", "-t", $ENV{ "TR_TORRENT_ID" }, "-r" );
}