#!/usr/bin/perl
use File::Copy;
use POSIX;
use Fcntl;
use IPC::Open2;
use File::Basename;

$sourcedir = qq(/home/oranvad/ap/source);
$targetdir = qq(/home/oranvad/ap/target);
$file      = qq(ijk);

my $cpstat = &copyFile($file);
print("\nfile=[$file]\tstatus=[$cpstat]");

sub copyFile() {
  my $fname = shift;
  my $cpcmd = qq(cp -p $sourcedir/$fname $targetdir/$fname);
  my $zpcmd = qq(zip $targetdir/$fname);
  print("\nCopying [$fname] with command [$cpcmd]...");

  sleep(5);
  system("$cpcmd");
  system("$zpcmd");
}