#! /usr/bin/perl
use warnings;
use strict;
my $bla="ftp://asdf:bsfsf@127.0.0.1:21";