Select Code to Download

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


1;   # Module is loaded by use or require

#!usr/bin/perl -w
use stirct;
...
use Linehist;
my $entry = 'What ever you had';
Linehist->history(\$entry, 'new');

history(\$entry, 'one');

use Linehist qw(history);