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

use Linehist;
my $entry = 'What ever you had';
Linehist->history(\$entry, 'new');