#!/usr/bin/perl -w
$dbun=$ARGV[0];
chomp($dbun);
`chown -R $dbun:$dbun /home/$dbun/www/images/page_images/`;
`chown -R $dbun:$dbun /home/$dbun/www/prod_images/`;
`chown -R $dbun:$dbun /home/$dbun/www/hotel_images/`;
`chown -R $dbun:$dbun /home/$dbun/www/images/user_files/`;