#!perl

use strict;
use warnings;
use utf8;
use Telugu::Keyword;

sub readFile {
    my ($filename) = @_;
    my @split = split('\.', $filename);
    if( $#split + 1 != 2 ) {
        die "give a filename with sb extension";
    }
    if( $split[1] ne 'sb') {
        die "give a filename with sb extension";
    }
    else {
        open(my $fh, '<:encoding(UTF-8)', $filename) or die "could not open file '$filename' $!";
        my $filecontents = do { local $/; <$fh> };
        return $filecontents;
    }
}

sub సమ {
    my ($left, $right) = @_;
    my $bool = $left eq $right;
    return $bool;
}

sub అసమ {
    my ($left, $right) = @_;
    my $bool = $left ne $right;
    return $bool;
}

sub రీడ్ {
    my ($filename) = @_;
    my $contents;

    open(my $fh, '<:encoding(UTF-8)', $filename) or die "cannot open file $filename";
    {
        local $/;
        $contents = <$fh>;
    }
    close($fh);

    return $contents;
}

sub రైట్ {
    my ($filename, $string) = @_;

    open(my $fh, '>:encoding(UTF-8)', $filename) or die "cannot open file $filename";
    print $fh $string;
    close($fh);
}

sub వుండాలి {
    my ($name) = @_;
    require $name;
}


my $filename = $ARGV[0];
my $filecontents;
if( defined $filename) {
    $filecontents = readFile($filename);
}
else {
    die "give a filename with sb extension";
}

my $program = "binmode STDOUT, ':encoding(UTF-8)';" . $filecontents;
eval $program;
