Не работает скрипт

open(FILE,"/usr/home/user/1.txt");
while($line = <FILE>)
{
open(CALL,">/usr/home/user/calls/$line");
close CALL;
system("cp /usr/home/user/calls/$line /tmp/calls/$line");
}
close FILE;

#!/usr/bin/env perl
 
use strict;
use warnings;
 
open(FILE, "/usr/home/user/1.txt") or die "failed to open file: $!";
 
while (my $line = <FILE>) {
    chomp $line;
    open(CALL, ">/usr/home/user/calls/$line") or die "could not open file $line: $!";
    close(CALL);
    `cp /usr/home/user/calls/$line /tmp/calls/$line`;
}
close FILE;
0;

#!perl
 
use 5.016;
use strict;
use warnings;
 
 
open(FILE, "1.txt") or die "failed to open file: $!";
 
while (<FILE>) {
    chomp;
    open(CALL, ">temp/$_") or die "could not open file $_: $!";
    close(CALL);
    `cp temp/$_ /home/vedynn/$_`;
}
close FILE;
0;