Select Code to Download

warn 'No File Loaded' if($self->{play}==0);

warn 'No File Loaded' if($self->{play}==0);

sub load {
my $self = shift;
...
$result = doMM("open \"$file\" type mpegvideo alias ".$self->{alias});
return $result;
}

sub play {
my $self = shift;
...
$result = doMM("play ".$self->{alias}." from $pos");
return $result;
}