So, i'm trying to use perl to write a script to automate a process that controls bitlocker drive encryption pins. I've written a script that takes the computername (format xxxx-xxxxxxxxxx) and takes the last 4 digits of the name and inputs those digits to a variable ($pin). Then, it runs command
system "manage-bde -changepin C: -computername $asset";
It then pops up asking what you want the pin to set to. My question is, how can i take the 4 digit number in the variable $pin i mentioned and have perl automatically type them into the prompt that manage-bde pops up with?