From 457351034b834b45a9a7791450d71e2e4ac37a95 Mon Sep 17 00:00:00 2001
From: wasabi <webmaster@sassysalamander.net>
Date: Thu, 29 May 2025 17:02:32 -0500
Subject: [PATCH] Progress on a perl version

---
 src/scripts/steamtricks.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/scripts/steamtricks.pl

diff --git a/src/scripts/steamtricks.pl b/src/scripts/steamtricks.pl
new file mode 100644
index 0000000..5e20686
--- /dev/null
+++ b/src/scripts/steamtricks.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Getopt::Long;
+
+my $steam_prefix = $ENV{'STEAM_PREFIX'};
+my $steamtricks_prefix = $ENV{'STEAMTRICKS_PREFIX'};
+my $change_install = '';
+my $game = '';
+my $version = '';
+my @games = split(/,/, $ENV{'SIM_MANAGED_GAMES'});
+
+GetOptions ('steam-prefix=s' => \$steam_prefix, 
+    'change-install' => \$change_install,
+    'version=s' => \$version);
\ No newline at end of file