package wslib;

use strict;

our @EXPORT = qw( workspace ); #place all the variables you want to export by default in here (c.f. @EXPORT_OK)
use Exporter;
our @ISA = qw(Exporter);
 
my $data_reg ='/root_to_file';
sub workspace { 
  
   open PAGE, "$data_reg" or die "Cant open $data_reg: $!";

  while (my $line = <PAGE>) {
    print "$line<br>";
  }
  close PAGE;
  
}


1;