{
  my $connection;
  {
    my $ftp = Net::FTP->new('some.host');
    $connection->{ftp} = $ftp;
  }   #1
  # Do stuff with $connection->{ftp}...
}   #2