| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl
# mkws -- Workspace launcher
# Substitute path of the perl binary on your system
# in the line above.
# When installing, change permissions to executable
# using 'chmod +x mkws'.
use Tk;
use Tk::Workspace;
my $name;
if ( defined @ARGV ) {
$name = $ARGV[0];
} else {
$name = 'workspace'
}
# If you place Workspace.pm in the current directory,
# us: 'Workspace::open(Workspace::create($name));
Tk::Workspace::open(Tk::Workspace::create($name));