my $filetoget = "$f.\@FILEDOMAIN$i.$year-$mon-$mday";

my @cmd = (
   '/usr/bin/scp',
   "$a:$LOGFILEDIR/$filetoget",
   "$filetoget.$a",
);

my $rv = system(@cmd);
if ($rv == -1) {
   print("Unable to execute scp: $!\n");
} elsif ($rv & 127) {
   printf("scp died with signal %d\n", ($rv & 127));
} elseif {$rv >> 8) {
   printf("scp exited with error %d\n", ($rv >> 8));
} else {
   print("scp was successful\n");
}