#!/usr/bin/perl
# test


$filename = <yousef.php>;

open (file, ">$filename") || die "cant open $filename";

print file "you are great";


close (file) || die "cant close $filename";