#!/usr/bin/perl -w
use strict;

open(OUT,">su-test.log") or die;
print OUT "user $ENV{'USER'}\n";
close(OUT) or die;
exit;