#!/usr/bin/perl
use strict;
use warnings;
use threads;
my $cks;
my $url;
my $filename;
my $cks_enter;
my $url_enter;
my $fnm_enter;

sub dd{
  my $thr1 = threads->new(\&d);
  $thr1->detach();
}

use Tk;

my $mw = MainWindow->new();
$mw->resizable( 0,0 );
$mw->title("test");

my $frame = $mw->Frame(-borderwidth => 2,-relief => 'groove')->pack();
my $bttn = $mw->Button(-text => "Down",-command => \&dd)->pack(-side => 'left');

$frame->Label(-text => 'Cookies:')->pack();
$cks_enter = $frame->Entry(-textvariable => \$cks,-width => 50)->pack();

$frame->Label(-text => 'URL:')->pack();
$url_enter = $frame->Entry(-textvariable => \$url)->pack(-expand => 1, -fill => 'x');

$frame->Label(-text => 'Filename:')->pack();
$fnm_enter = $frame->Entry(-textvariable => \$filename)->pack(-expand => 1, -fill => 'x');
MainLoop;


sub d {
#$bttn->configure(-state=>'disabled');
$cks = $cks_enter->get();
chomp($cks);
$url = $url_enter->get();
chomp($url);
$filename = $fnm_enter->get();
chomp($filename);
use LWP::UserAgent;
my @headers = (
   'User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; EN; rv:1.9.0.11) Gecko/2009060215 Firefox/3.5',
   'cookie' => "$cks",
);

my $ua = LWP::UserAgent->new();
my $req = $ua->get($url,@headers);
my $cont = $req->content;
open PIC, ">$filename";
binmode(PIC);
print PIC "$cont\n";
close PIC;
}