视频捕捉/采集

开发平台：

Visual C++

Html.pm：源码内容

							package Jpc::Html;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(Document
	
);
$VERSION = '0.01';
# Preloaded methods go here.
sub Document
	{
		print "Content-type: text/htmln";
		print "n";
		print '<HTML>',"n";
 		print '<HEAD>',"n";
  	print '<TITLE>',$_[0],'</TITLE>',"n";
 		print '</HEAD>',"n";
		print '<BODY BGCOLOR="#FFFFFF" BACKGROUND="/NetAdmin/images/fond2.jpg">',"n";
	}
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
Jpc::Html - Perl extension for blah blah blah
=head1 SYNOPSIS
  use Jpc::Html;
  blah blah blah
=head1 DESCRIPTION
Stub documentation for Jpc::Html was created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
=head1 AUTHOR
A. U. Thor, a.u.thor@a.galaxy.far.far.away
=head1 SEE ALSO
perl(1).
=cut

						