use warnings;
use strict;
use Tk;

my $mw = new MainWindow;
$mw->geometry("200x200");
my $frame = $mw->Frame()->pack;

my $textbox = $frame->Scrolled('Text',
								-scrollbars => 'soe',
								-foreground => 'blue',
								-background => 'white',
								-wrap => 'none',
							     )->pack;
$textbox->insert('end', "This is scrolled widget.\nThis is scrolled widget.This is scrolled widget"); 

MainLoop;


##</code><code>##

sub func
{
my $wr = $textbox->Subwidget('scrolled')->cget(-wrap);

if ($wr =~ /\bnone\b/)
{
	# do something
}
else
{
        # do something else
}