#!/usr/bin/perl -w
#
use strict;

my $var;

open($var,system('ftp'));
  print $var;
close $var;