#!/usr/bin/perl -w

use strict;
use OpenIsis;
use Text::Iconv;

Text::Iconv->raise_error(1);     # Conversion errors raise exceptions

#my $to = "UTF-8";
my $to = "ISO-8859-2";

my $isis_codepage = Text::Iconv->new('852',$to);

my $isis_db="/data/isis_data/small/ps/PERI/PERI";
my $row_id = 11;

my $db = OpenIsis::open( $isis_db );

my $row = OpenIsis::read( $db, $row_id );

use isis_sf;

print $isis_codepage->convert(isis_sf($row,'200')),"\n";

