#######################################################
#
# OLE-Calls in Perl!
# ===================
#
# ActiveState-Distribution:
# -------------------------
use OLE;
#
# Perl 5.004-Distribution with libwin32
# ------------------------------------
# use Win32::OLE;
#
#######################################################
#
# Example for generating an object with libwin32:
#
# Win32::OLE::CreateObject("WHFC.OleSrv", $whfc) ||
#             die "CreateObject: $!";
#
#======================================================
#
# Example for generating an object with ActiveState:
#
$whfc = CreateObject OLE "WHFC.OleSrv" ||
      die "CreateObject: $!";
#
# Function calls (independent of the perl distribution):
#
# WHFC-Call with File and Phone No.:
$whfc -> SendFax("c:\\temp\\test.ps",42,TRUE);
#
# WHFC-Call with File and prompt for Phone No.
# $whfc -> SendFaxDlg("c:\\temp\\test.ps",TRUE);
#