#!/opt/bin/perl
#
#########################################################################
#                                                                       #
#   Program to display all preports of the caller                       #
#                                                                       #
#########################################################################
#                                                                       #
#   Version 1.0     -   Written 15.05.96 by Steffen Beyer               #
#                                                                       #
#########################################################################
#                                                                       #
#   Copyright (C) 1996 by software design & management GmbH & Co. KG    #
#                                                                       #
#########################################################################

# Who am I?

$user = getlogin;

system("/opt/bin/my_pr $user");

__END__