#!/usr/bin/perl -w

system("su $ARGV[0] -c \"$ARGV[1]\"");

