#!/usr/bin/perl
use Tk;
use Net::SFTP;
my $sftp = Net::SFTP->new('localhost');