use strict;
use warnings;
use Net::FTP;
use YAML;
use Data::Dumper;

sub main
{
my $host;
my $username;
my $password;

# step 1: open file
open my $fh, '<', 'config.yml' 
  or die "can't open config file: $!";

# step 2: convert YAML file to perl hash ref
my $config = LoadFile($fh);
print Dumper($config), "\n";

my $ftp = Net::FTP->new($host) or die "Can't open $host\n";
$ftp->login($username, $password) or die "Cant log $username in\n";

my $dir = "/hd1/Logs";
$ftp->cwd($dir) or die "Can't cwd to #dir\n";

my $file_to_get = "filetoget";
$ftp->get($file_to_get) or die "Can't get $file_to_get from $dir\n";
}
main();