#!/usr/bin/perl
use strict;
use warnings;
use WWW::Newzbin;
use WWW::Newzbin::Constants;
# log into newzbin using the username "joebloggs" and the password "secretpass123"
my $nzb = WWW::Newzbin->new(
username => "joebloggs",
password => "secretpass123"
);
# make an nzb file for binaries in newzbin report #12345678
my ($nzb_file, $report_name, $report_category) = $nzb->get_nzb(reportid => 12345678);
# make an nzb file for binaries in newzbin report #12345678, and leave the nzb file gzip-compressed
my ($nzb_file_gzipped, $report_name, $report_category) = $nzb->get_nzb(
reportid => 12345678,
leavegzip => 1
);
# make an nzb file for binaries with the newzbin file ids #123, #456 and #789, and don't compress it when downloading it
my $nzb_file = $nzb->get_nzb(
fileid => [ 123, 456, 789 ],
nogzip => 1
);