use warnings; 
use strict;

open my $ftpfile, '<', $FTP_FILE or die "Can't open <$FTP_FILE>: $!";

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Net::FTP; 
 
die "wrong number of args if @ARGV != 3; 
 
my $subdir    = $ARGV[0]; 
my $batch_id  = $ARGV[1]; 
my $rdbms_id  = $ARGV[2]; 
 
my $scripttop = $ENV{'script_top'}; 
my $dir_path  = $ENV{'dir_path'}; 
 
my $full_path = "$dir_path/$subdir"; 
my $log       = "$full_path/log"; 
my $ftp_file  = "$scripttop/1.log"; 
my $log_file  = "$log/$batch_id.log"; 
 
 
open my $ftpfile, '<', $ftp_file or die "can't open <$ftp_file>: $!";  
  
my @lines = <$ftpfile>; 
 
close $ftpfile; 
 
print @lines;