#! /usr/bin/perl print "Hi\n"; `cp -rf /nihad /tmp/`;