package wslib;

use strict;

our @EXPORT = qw( workspace ); #place all the variables you want to ex
+port by default in here (c.f. @EXPORT_OK)
use Exporter;
our @ISA = qw(Exporter);
 
sub workspace { 
  my $data_reg = shift || return;

  open my $page, "$data_reg" or die "Cant open $data_reg: $!";

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

1;